# name : proc power two means / sample size
# key : power.means.two
# contributor: Shuguang Sun
# --
proc power;
twosamplemeans
/* test and power */
test = ${1:$$(yas-choose-value '("DIFF" "DIFF_SATT" "EQUIV_DIFF" "EQUIV_RATIO" "RATIO"))}
alpha = 0.025
sides = 1
power = ${3:0.9}
/* CI and probwidth */
/* ci = diff*/
/* halfwidth=number-list */
/* probtype = conditional
/* meandiff = number-list */
/* groupstddevs = 5 | 8 */
/* meanratio = number-list */
/* cv = number-list */
/* nulldiff = number-list */
/* proportiondiff = number-list */
/* refproportion = number-list */
groupweights = ${7:(1 2)}
npergroup = .;
run;
